library(readr)
library(ggplot2)

#data for figure 5
decadeACC <- read_csv("/Users/cheng/OneDrive/Desktop/character/character/5_build_author_models/Figure5Data.csv")

#plot figure 5
accuracy_plot <- ggplot(combineACC, aes(x=pub_decade, y=Accuracy, color=auth_gender))+
  geom_point(aes(shape=auth_gender))+
  ggtitle("Accuracy of Character-Gender Prediction in Physiques Produced By Men and Women Writers")+
  ylab("Predictive Accuracy")+ 
  theme(axis.title.x = element_blank())
accuracy_plot 